On Error Resume Next
        Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
        Set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
        For Each objOS in colOS
         Wscript.Echo("{""TotalVisibleMemorySize"":" & objOS.TotalVisibleMemorySize & ",""FreePhysicalMemory"":" & objOS.FreePhysicalMemory & "}")
        Next